home *** CD-ROM | disk | FTP | other *** search
- /* REXX-Program: LOGIN.ZRX */
-
- CALL ZocCls /* clear screen */
-
- CALL ZocTimeout 60 /* max. time to wait for something */
-
- CALL ZocWait "Press <ESC>"
- CALL ZocSend "^[" /* ^[ is the code for the ESC key */
-
- CALL ZocWait "Name?"
- CALL ZocSend "Joe User^M" /* don't forget ^M after the name */
-
- CALL ZocWait "[Yes/No]"
- CALL ZocSend "Yes^M"
-
- CALL ZocWait "Password?"
- CALL ZocSend "secret^M"
-
- /* the next command means that ZOC should
- automatically send a ^M (Enter) every time
- the text "Press Enter to continue" arrives.
- This way all the news screens are skipped,
- no matter how many of them appear */
- CALL ZocReply "Enter", "^M"
-
- /* Wait for the main menu */
- CALL ZocWait "Main Menu"
-
- /* Cancel the previous REPLY command so ZOC won't
- kick in if we received that text later */
- CALL ZocReply "Enter"
-